﻿Public NotInheritable Class FrmSplash


    Private Sub FrmSplash_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.Version.Text = "v." & CStr(Mid(My.Application.Info.Version.ToString, 1, 2) & Mid(My.Application.Info.Version.ToString, 3, 2).PadLeft(2, "0") & Mid(My.Application.Info.Version.ToString, 5, Len(My.Application.Info.Version.ToString)))
        'Timer1_Tick(sender, e)
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Me.Timer1.Enabled = False
        Me.Visible = False
        Me.Opacity = 0
        'MDIControleMatricula.ShowDialog()
        MDIRibbonControle.ShowDialog()

    End Sub


End Class
